home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / emacs16d.zip / _INDENT.MIN < prev    next >
Text File  |  1991-07-19  |  3KB  |  164 lines
  1.  
  2.  
  3.  
  4. Name:F-indent-tabs-mode
  5. Non-nil if #(Fpad-to-column) is allowed to use tabs.
  6. [*]t[*]
  7.  
  8.  
  9. Name:F:indent
  10. Indent to the next tab stop
  11. [*]#(is,(    ))[*]
  12.  
  13.  
  14. Name:F:indent-for-comment
  15. Insert the indentation for a comment.  If given an argument, realign the
  16. comments on that many lines.
  17. [*]    
  18. #(pm,1)
  19. #(lp,##(F-left-comment))
  20. #(l?,^,$,0,,(
  21.     #(sp,0)
  22.     #(==,##(rc,^),0,,(
  23.         #(Ffind-non-blank,<,^)
  24.         #(dm,0)
  25.         #(n?,comment-indent-hook,(
  26.             #(comment-indent-hook)
  27.         ),(
  28.             #(Fpad-to-column,##(F-comment-column))
  29.         ))
  30.     ))
  31. ),(
  32.     #(==,arg1,,(
  33.         #(sp,$)
  34.         #(n?,comment-indent-hook,(
  35.             #(comment-indent-hook)
  36.         ),(
  37.             #(Fpad-to-column,##(F-comment-column))
  38.         ))
  39.         ##(is,##(F-left-comment) )
  40.         #(sm,0,<)
  41.         #(is,##(F-right-comment))
  42.         #(sp,0)
  43.         #(dm,>)
  44.     ))
  45. ))
  46. #(pm)
  47. #(==,arg1,,,(
  48.     #(sp,$>)
  49. ))
  50. #(g?,arg1,1,(
  51.     #(SELF,##(--,arg1,1))
  52. ))
  53. [*]
  54.  
  55.  
  56. Name:F:indent-newline
  57. Insert a newline followed by the same whitespace as on the previous line.
  58. [*]#(Fin-minor-mode,Abbrev,(#(A:expand-abbrev)))
  59. #(Fin-minor-mode,Spell,(
  60.     #(F:spell-word,1)
  61. ))
  62. #(==,##(rc,$),0,(
  63.     #(Fin-minor-mode,Indent,(
  64.         #(sp,^)
  65.         #(Fforward-skip-white,no)
  66.         #(ds,temp,##(rm,^))
  67.         #(sp,$)
  68.         #(Fcrlf)
  69.         #(is,##(temp))
  70.     ),(
  71.         #(Fcrlf)
  72.     ))
  73. ),(
  74.     #(Fcrlf)
  75. ))[*]
  76.  
  77.  
  78. Name:F:indent-region
  79. Apply TAB to every line in the region.  If an argument is given, then align
  80. the first non-blank character of every line with that column.
  81. [*]    
  82. #(pm,2)
  83. #(mb,#(Fmark),,(#(F:swap-point-and-mark)))
  84. #(sm,0,#(Fmark))
  85. #(sm,1,.)
  86. #(F:swap-point-and-mark)
  87. #(Findent-region,arg1,##(K.C-i))
  88. #(sp,0)
  89. #(pm)
  90. [*]
  91.  
  92.  
  93. Name:F:indent-relative
  94. [*]#(Fr,(
  95.     #(g?,##(lv,cs),ARG1,(
  96.         #(==,arg1,,(
  97.             #(F:delete-horizontal-space)
  98.             #(SELF,x)
  99.         ),(
  100.             #(F:tab-to-tab-stop)
  101.         ))
  102.     ),(
  103.         #(Fpad-to-column,ARG1)
  104.     ))
  105. ),#(Findent-point)) [*]
  106.  
  107.  
  108. Name:F:indent-rigidly
  109. Change the indentation on a line.
  110. [*]    
  111. #(pm,2)
  112. #(mb,#(Fmark),,(#(F:swap-point-and-mark)))
  113. #(sm,0,#(Fmark))
  114. #(sm,1,.)
  115. #(Findent-rigidly,arg1,##(lv,cl)#(F:swap-point-and-mark))
  116. #(sp,0)
  117. #(pm)
  118. [*]
  119.  
  120.  
  121. Name:Findent-point
  122. Return the column of the next indent point.
  123. wwww     x   yyyy    z
  124. #(Findent-point)
  125. [*]#(pm,2)
  126. #(sv,cs,##(lv,cs)#(sp,^<))
  127. #(lp,\w*\W*,,R)
  128. #(l?,.,$,,1,(
  129.     #(sp,1)
  130. ))
  131. #(lv,cs)
  132. #(sp,0)
  133. #(pm)[*]
  134.  
  135.  
  136. Name:Findent-region
  137. [*]#(sp,^)
  138. #(==,##(rm,$),,,(
  139.     #(==,arg1,,(
  140.         #(arg2)
  141.     ),(
  142.         #(Ffind-non-blank,>)
  143.         #(dm,^)
  144.         #(Fpad-to-column,arg1)
  145.     ))
  146. ))
  147. #(sp,$>)
  148. #(mb,1,,(
  149.     #(==,##(rc,1),0,,(
  150.         #(SELF,arg1,arg2)
  151.     ))
  152. ))[*]
  153.  
  154.  
  155. Name:Findent-rigidly
  156. [*]#(sp,^)
  157. #(Ffind-non-blank,>)
  158. #(Fpad-to-column,##(++,##(lv,cs)##(dm,^),arg1))
  159. #(sp,$>)
  160. #(mb,1,,(
  161.     #(==,##(rc,1),0,,(
  162.         #(SELF,arg1,arg2)
  163.     ))
  164. ))[*]